home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 3 / United Public Domain Gold 3.iso / games / pg369.dms / pg369.adf / Intro.AMOS / Intro.amosSourceCode
AMOS Source Code  |  1992-02-21  |  796b  |  44 lines
  1. ' title program for Knightwoode
  2. ' poor i know, but it does the job.
  3. '
  4. Screen Open 0,320,256,32,Lowres
  5. Paper 0
  6. Load Iff "adventure:titlegraphics/tscreen6"
  7. Hide 
  8. Flash Off 
  9. Wait 200
  10. Fade 7
  11. Wait 60
  12. Cls 
  13. Load Iff "adventure:titlegraphics/tscreen7"
  14. Clear Key 
  15. Gosub HOLD
  16. Cls 
  17. Curs Off 
  18. '
  19. MAIN:
  20. Load Iff "adventure:titlegraphics/tscreen1"
  21.  Gosub HOLD
  22. Load Iff "adventure:titlegraphics/tscreen2"
  23.  Gosub HOLD
  24. Load Iff "adventure:titlegraphics/tscreen3"
  25.  Gosub HOLD
  26. Load Iff "adventure:locationgraphics/46 gates"
  27.  Gosub HOLD
  28. Load Iff "adventure:titlegraphics/tscreen4"
  29.  Gosub HOLD
  30. Load Iff "adventure:titlegraphics/tscreen5"
  31.  Gosub HOLD
  32. '
  33. ACTION:
  34. Run "adventure:Knightwoode.AMOS"
  35. '
  36. HOLD:
  37. Do 
  38. If Key State(69)=True Then Goto ACTION
  39. If Inkey$<>"" Then Exit 
  40. M=Mouse Click
  41. If M=1 Then Exit 
  42. Loop 
  43. Cls 
  44. Return